subroutine calciiabj(r1, r2, t1, iiabj, icore) 
implicit none
real*8, intent(inout) :: t1(*), r1(*), r2(*) 
real*8, intent(inout) :: iiabj(*), icore(*)
!
call r1ai_t1fn_inafi(r1, t1, iiabj, icore, 1.d0)
!
call r2abij_t1ei_t1am_ijebm(r2, t1, iiabj, icore, -1.d0) 
!============================
!write(6,*)'test4'
!
return
end 
